5 REM COPYRIGHT 1988  COMPUTE! PUBLICATIONS, INC.  ALL RIGHTS RESERVED.
10 PRINT"[147]COPYRIGHT 1988
12 [153]"COMPUTE! PUBLICATIONS, INC.
14 PRINT"ALL RIGHTS RESERVED."
15 FOR X=1 TO 2000:NEXT:PRINT"[147]"
20 PRINT CHR$(147):PRINT "READING DATA IN ASCENDING ORDER...";
30 FOR RL=100 TO 140 STEP 10:GOSUB 1000:READ D$:PRINT D$;:NEXT RL
40 PRINT:PRINT:PRINT "READING DATA IN DECENDING ORDER...";
50 FOR RL=140 TO 100 STEP -10:GOSUB 1000:READ D$:PRINT D$;:NEXT RL
60 PRINT:PRINT:PRINT "READING DATA IN RANDOM ORDER...";
70 FOR I=1 TO 5:RL=INT(RND(1)*40)+100:GOSUB 1000:READ D$:PRINT D$;:NEXT I
80 PRINT:END
100 DATA FIRST
110 DATA SECOND
120 DATA THIRD
130 DATA FOURTH
140 DATA FIFTH
1000 POKE 785,232:POKE 786,7:POKE 209,232:POKE 210,7:POKE 211,0:POKE 213,39
1010 PRINT " S&$[146][223]HD[146][193]$[146][160]D[146][194][160]":SYS 47083(RL),USR(0):RETURN